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Preface 

Manual Objectives 

The VAX PASCAL Language Summary is primarily intended as a concise reference for knowledgeable users of VAX PASCAL. 

Structure of this Document 

This booklet summarizes the VAX PASCAL language elements and includes information on compiling, linking, executing, and 
debugging a VAX PASCAL program. 

Associated Documents 

The following documents contain more detailed information: 

• Programming in VAX PASCAL contains reference information on the VAX PASCAL language elements summarized in this 
booklet, and information on compiling, linking, executing, and debugging a PASCAL program. 

• The VAX PASCAL User’s Guide contains detailed information on input and output; calling conventions; condition handling; 
storage of data; and optimization. 

For a list of related VAX/VMS documents, see the VAX Information Directory. 



Conventions Used in this Document 


Convention 

Meaning 

{ } 

! ) 

I I ;••• 

[ ] 

II 

Braces enclose lists from which you must choose one item. 

A horizontal ellipsis indicates that the preceding item can be repeated as indicated. 

Braces followed by a comma and a horizontal ellipsis mean that you can repeat the enclosed 
item one or more times, separating multiple items with commas. 

Braces followed by a semicolon and a horizontal ellipsis mean that you can repeat the enclosed 
item one or more times, separating multiple items with semicolons. 

A vertical ellipsis indicates that not all of the statements in an example or figure are shown. 

Square brackets mean that the statement syntax requires the square bracket characters. 

Double brackets enclose items that are optional. 


IV 







items in UPPERCASE letters Uppercase letters and special symbols in syntax descriptions indicate VAX PASCAL reserved 

and special symbols words and predeclared identifiers that you must not abbreviate. 


items in lowercase letters Lowercase letters in examples represent elements that you must replace according to the 

description in the text. 

In this booklet, complex syntax diagrams have been divided into several lines to make them easy to read. PASCAL does not require 
that you format your programs in any particular way; therefore, you should not regard the formats used here as mandatory. 


n ii n n n n n n n n n n n n n n n n n n 
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1.0 VAX PASCAL Language Summary 

1.1 Lexical Elements 

ASCII Character Set 


ASCII 

Decimal 

Number 

Character 

Meaning 

ASCII 

Decimal 

Number 

0 

NUL 

Null 

32 

1 

SOH 

Start of heading 

33 

2 

STX 

Start of text 

34 

3 

ETX 

End of text 

35 

4 

EOT 

End of transmission 

36 

5 

ENQ 

Enquiry 

37 

6 

ACK 

Acknowledgement 

38 

7 

BEL 

Bell 

39 

8 

BS 

Backspace 

40 

9 

HT 

Horizontal tab 

41 

10 

LF 

Line feed 

42 

11 

VT 

Vertical tab 

43 

12 

FF 

Form feed 

44 

13 

CR 

Carriage return 

45 


Character 


Meaning 


SP 


# 

$ 

% 

& 

( 

) 


Space or blank 
Exclamation mark 
Quotation mark 
Number sign 
Dollar sign 
Percent sign 
Ampersand 
Apostrophe 
Left parenthesis 
Right parenthesis 
Asterisk 
Plus sign 
Comma 

Minus sign or hyphen 








1! 

U U 

u u (J U 11 

14 

SO 

Shift out 

15 

SI 

Shift in 

16 

DLE 

Data link escape 

17 

DCl 

Device control 1 

18 

DC2 

Device control 2 

19 

DC3 

Device control 3 

20 

DC4 

Device control 4 

21 

NAK 

Negative acknowledgement 

22 

SYN 

Synchronous idle 

23 

ETB 

End of transmission block 

24 

CAN 

Cancel 

25 

EM 

End of medium 

26 

SUB 

Substitute 

27 

ESC 

Escape 

28 

FS 

File separator 

29 

GS 

Group separator 

30 

RS 

Record separator 

31 

US 

Unit separator 


46 


Period or decimal point 

47 

/ 

Slash 

48 

0 

Zero 

49 

1 

One 

50 

2 

Two 

51 

3 

Three 

52 

4 

Four 

53 

5 

Five 

54 

6 

Six 

55 

7 

Seven 

56 

8 

Eight 

57 

9 

Nine 

58 


Colon 

59 

; 

Semicolon 

60 

< 

Left angle bracket 

61 

= 

Equal sign 

62 

> 

Right angle bracket 

63 

? 

Question mark 


(Continued on next page) 
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ASCII Character Set (Cont.) 


ASCII ASCII 


Decimal 

Number 

Character 

Meaning 

Decimal 

Number 

Character 

Meaning 

64 

@ 

At sign 

96 

' 

Grave accent 

65 

A 

Uppercase A 

97 

a 

Lowercase a 

66 

B 

Uppercase B 

98 

b 

Lowercase b 

67 

C 

Uppercase C 

99 

c 

Lowercase c 

68 

D 

Uppercase D 

100 

d 

Lowercase d 

69 

E 

Uppercase E 

101 

e 

Lowercase e 

70 

F 

Uppercase F 

102 

f 

Lowercase f 

71 

G 

Uppercase G 

103 

g 

Lowercase g 

72 

H 

Uppercase H 

104 

h 

Lowercase h 

73 

I 

Uppercase I 

105 

i 

Lowercase i 

74 

J 

Uppercase J 

106 

j 

Lowercase j 

75 

K 

Uppercase K 

107 

k 

Lowercase k 

76 

L 

Uppercase L 

108 

1 

Lowercase 1 

77 

M 

Uppercase M 

109 

m 

Lowercase m 

78 

N 

Uppercase N 

110 

n 

Lowercase n 

79 

0 

Uppercase 0 

111 

0 

Lowercase o 


(IflJinilflnniLflfln.nnnnnniifi 





if 1 

If U 

U U U 

U If 

80 

P 

Uppercase P 


81 

Q 

Uppercase Q 


82 

R 

Uppercase R 


83 

S 

Uppercase S 


84 

T 

Uppercase T 


85 

U 

Uppercase U 


86 

V 

Uppercase V 


87 

W 

Uppercase W 


88 

X 

Uppercase X 


89 

Y 

Uppercase Y 


90 

Z 

Uppercase Z 


91 

[ 

Left square bracket 

92 

\ 

Back slash 


93 

1 a 

Right square bracket 

94 

A or t 

Circumflex or 

up arrow 

95 

«- or_ 

Back arrow or underscore 


112 

P 

113 

q 

114 

r 

115 

s 

116 

t 

117 

u 

118 

V 

119 

w 

120 

X 

121 

y 

122 

z 

123 

{ 

124 

1 

125 

} 

126 

~ 

127 

D 


Lowercase p 
Lowercase q 
Lowercase r 
Lowercase s 
Lowercase t 
Lowercase u 
Lowercase v 
Lowercase w 
Lowercase x 
Lowercase y 
Lowercase z 
Left brace 
Vertical line 
Right brace 
Tilde 
Delete 
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Special Symbols 


Name 

Symbol 

Name 

Symbol 

Name 

Symbol 

Apostrophe 

’ 

Equal 

= 

Parentheses 

0 

Assignment operator 

k 

Exponentiation 

** 

Percent 

% 

Brackets 

[ i 

Greater than 

> 

Period 



(..) 

Greater than or equal 

>= 

Plus sign 

+ 

Colon 


Less than 

< 

Pointer 

A 

Comma 

, 

Less than or equal 

<= 


@ 

Comments 

i i 

Minus sign 

- 

Semicolon 

; 


(* *) 

Multiplication 

* 

Subrange operator 


Division 

/ 

Not equal 

<> 

Type cast operator 








Standard Reserved Words 


Nonstandard Reserved Words 


AND 

END 

NOT 

ARRAY 

FILE 

OF 

BEGIN 

FOR 

OR 

CASE 

FUNCTION 

PACKED 

CONST 

GOTO 

PROCEDURE 

DIV 

IF 

PROGRAM 

DO 

IN 

RECORD 

DOWNTO 

LABEL 

REPEAT 

ELSE 

MOD 



SET 

%DESCR 

MODULE 

THEN 

%DICTIONARY 

OTHERWISE 

TO 

96IMMED 

REM 

TYPE 

%INCLUDE 

VARYING 

UNTIL 

VAR 

WHILE 

WITH 

%REF 

%STDESCR 

VALUE 


Syntax of User-Created Identifiers 

!“)[!?•)] 


A letter is an ASCII character with a value from 65 through 90 (uppercase letters A through Z), or from 97 through 122 (lowercase 
letters a through z). A digit is an ASCII character with a value from 48 through 57 (the numbers 0 through 9). Identifiers cannot 
contain embedded spaces or tabs and must be no longer than 31 characters. 


VAX PASCAL Language Summary 3 








Predeclared Identifiers 


ABS 

ADD_INTERLOCKED 

ADDRESS 

ARCTAN 

ARGUMENT 

ARGUMENT_LIST_LEN GTH 

BIN 

BITNEXT 

BIT_OFFSET 

BITSIZE 

BOOLEAN 

BYTE_OFFSET 

CARD 

CHAR 

CHR 

CLEAR_INTERLOCKED 

CLOCK 

CLOSE 

COS 

CREATE_DIRECTORY 

DATE 


DELETE_FILE 

LENGTH 

READ 

TRUE 

DISPOSE 

LINELIMIT 

READLN 

TRUNC 

DOUBLE 

LN 

READV 

TRUNCATE 

EOF 

LOCATE 

REAL 

UAND 

EOLN 

LOWER 

RENAME_FILE 

UDEC 

ESTABLISH 

MAX 

RESET 

UFB 

EXP 

MAXINT 

RESETK 

UINT 

EXPO 

MIN 

REVERT 

UNDEFINED 

EXTEND 

NEW 

REWRITE 

UNLOCK 

FALSE 

NEXT 

ROUND 

UNOT 

FIND 

NIL 

SET—INTERLOCKED UNPACK 

FIND_FIRST_BIT_CLEAR 

OCT 

SIN 

UNIGNED 

FIND_FIRST_BIT_SET 

ODD 

SINGLE 

UOR 

FINDK 

OPEN 

SIZE 

UPDATE 

FIND_MEMBER 

ORD 

SNGL 

UPPER 

FIND_N ONMEMBER 

OUTPUT 

SQR 

UROUND 

GET 

PACK 

SQRT 

UTRUNC 

HALT 

PAD 

STATUS 

UXOR 

HEX 

PAGE 

STATUSV 

WRITE 

IADDRESS 

PRED 

SUBSTR 

WRITELN 

INDEX 

PRESENT 

SUCC 

WRITEV 


n n (in n n n n n n nnnnnnnnn 






u u u u 

u u u u 

U U U U U U li 

DBLE 

INPUT 

PUT TEXT 

DEC 

INT 

QUAD TIME 

DELETE 

INTEGER 

QUADRUPLE 

%INCLUDE Directive 



%INCLUDE VAX/VMS file 

~ [ {/S s JstI 

J 

/LIST and /NOLIST indicate whether the included file should 

be printed in the listing of the main program. 


1.2 Compilation Unit Structure 

Compilation Unit 

f program ) 
l module ; 

Program 

program-heading 

block. 


11 HUH 


XOR 

ZERO 


/LIST is the default. 
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Module 


module-heading 

declaration-part 

END. 

Program-heading 

[ attribute-list] PROGRAM identifier [({file-identifier},...)]; 

Module-heading 

[ attribute-list ] MODULE identifier [({file-identifier},...)]; 

Declaration-part 

t r *\ “T 

label-declaration 
constant-definition 
type-definition 
< variable-declaration > 
value-declaration 
procedure-declaration 
function-declaration 


n onnn nnnnnnnnnnnnn n n 












Block 


declaration-part 

BEGIN 

{ statement } [ ; ] 

END 

1.3 Declarations 

Label-declaration 

LABEL { label } 

Constant-definition 

CONST { constant-identifier = constant-expression } 

Type-definition 

TYPE { type-identifier = [ attribute-list ] type } 
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V ariable-declar ation 

VAR { | variable-identifier-| attribute-list J type [ := constant-expression ] ) 

Value-declaration 

VALUE { variable-identifier := constant-expression } 

Procedure-declaration, Function-declaration 

See Section 1.8 


Radix integers and unsigneds: 

%letter ' { digit } 


1.4 Data Types 

Ordinal Types 
INTEGER: 

-2 31 + 1 through 2 31 - 1 
-2,147,483,647 through 2,147,483,647 
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UNSIGNED: 


Allowable letters and digits: 


0 through 2 32 - 1 

Binary radix 

B,b 

0,1 

0 through 4,294,967,295 

Hexadecimal radix 

X,x 

0,1,2,3,4,5,6,7,8,9 

A,B,C,D,E,F, 

a,b,c,d,e,f 


Octal radix 

0,o 

0,1,2,3,4,5,6,7 


CHAR: 

Any printing member of the ASCII character set, enclosed in apostrophes 
Apostrophe character is written 

Nonprinting ASCII characters are written by enclosing the ordinal value of the character in parentheses. A string of printing 
characters must be closed before a nonprinting character can be inserted. 

BOOLEAN: 

FALSE, TRUE 
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Enumerated: 


( { identifier } ,...) Maximum of 65,535 identifiers 

Subrange: 

lower-limit, .upper-limit 


Real Types 


Type 

Lowest 

Negative 

Value 

Largest 

Positive 

Value 

Lowest 

Negative 

Value 

Largest 

Positive 

Value 

Precision 

REAL, 

SINGLE 

-0.29E-38 

-1.7E38 

0.29E-38 

1.7E38 

7 digits 

D_floating 

DOUBLE 

-0.29D-38 

-1.7D38 

0.29D-38 

1.7D38 

16 digits 

G_floating 

DOUBLE 

-0.56D-308 

-0.90D308 

0.56D-308 

0.90D308 

15 digits 

QUADRUPLE 

-0.84Q-4932 

-0.59Q4932 

0.84Q-4932 

0.59Q4932 

33 digits 








Structured Types 
RECORD: 

[ PACKED ] RECORD 

field-list 

END 

field-list: 

{ { field-identifier } ,... : | attribute-list ] type };... [ ; variant-clause ]>[[;] 71 
1 variant-clause J _[] 

variant-clause: 

CASE [ tag-identifier : ] [ attribute-list ] tag-type-identifier OF 
( {case-label-list : (field-list)};...) 

( OTHERWISE (field-list) j 

ARRAY: 

[ PACKED J ARRAY [ { [ attribute-list ] index-type } ,...] OF [ attribute-list ] component-type 
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VARYING OF CHAR: 

VARYING [upper-bound] OF [ attribute-list ] CHAR 
Character constants: 

Type CHAR A single member of the ASCII character set, enclosed in apostrophes 

Type VARYING OF CHAR only An empty string, written 

Type PACKED ARRAY OF CHAR ' { any ASCII character except ' ) 

SET: 

[ PACKED ] SET OF [ attribute-list ] base-type 
FILE: 

[ PACKED | FILE OF [ attribute-list ] component-type 

Pointer Type 

[ attribute-list ] base-type-identifier 


nnnnnnnnnnnnnnnnnnnn 


1/ o u u u u u u u u u b inmnrnr 

1.5 Expressions 

Components of Expressions 


Component 

Compile-Time 

Expression 

Run-Time 

Expression 

Constant 

X 

X 

Constant identifier 

X 

X 

Operator 

X 

X 

Predeclared function 

X 

X 

Variable 


X 

Function designator 


X 


Allowable predeclared functions: 


ABS, ARCTAN, BITNEXT, BITSIZE, CARD, CHR, COS, DBLE, EXP, 
EXPO, INDEX, INT, LENGTH, LN, MAX, MIN, NEXT, ODD, ORD, PAD, 
PRED, QUAD, ROUND, SIN, SIZE, SNGL, SQR, SQRT, SUBSTR, SUCC, 
TRUNC, UAND, UINT, UNOT, UOR, UROUND, UTRUNC, UXOR 
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Function Designator 

function-identifier [ ( { actual-parameter } ,...)] 

where actual-parameter is a constant, an expression, the name of a procedure or function, or a variable. 

Syntax of Constructor 

(constant of a structured type) 

For arrays: 

[ type-identifier ] ( { [ n OF ] ( constant ) 

\ REPEAT constant J },...) 
where n is a nonnegative integer 

For records: 

[ type-identifier ] ( { constant } ,...) 

For sets: 

[ type-identifier ] [ [ { expression [ .. expression ] } ,...] ] 

nnnnnnnnnnnnnnnnnnnn 


1.6 Operators 
Type Conversions 


Types 

Rank 

QUADRUPLE 

Highest 

DOUBLE 


REAL, SINGLE 

1 

UNSIGNED 


INTEGER 

Lowest 


Type Cast Operator 


Operator 

Example 

Result 


A :: B 

(A) :: B 

Variable A is treated as being of type B for one operation 

Expression A is treated as being of type B for one operation 
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Precedence of Operators 


Operators 

Precedence 

NOT 

** 

*,/,DIV,REM,MOD,AND 

OR 

Highest 

=,< >,<,<=,>,>=,IN 

Lowest 


Logical Operators 


Operator 

Example 

Result 

AND 

A AND B 

TRUE if both A and B are TRUE 

OR 

A ORB 

TRUE if either A or B is TRUE (or if both are TRUE) 

NOT 

NOT A 

TRUE if A is FALSE (and FALSE is A is TRUE) 









tfvtftftfuuuuuuutfuutfuirur 

Arithmetic Operators 


Operator 

Example 

Meaning 

Types 

Result Type 

+ 

A+B 

Sum of A and B 

INTEGER, UNSIGNED, 

Same as operands if both are the same 




REAL, DOUBLE, 

type; otherwise, operand of the lower- 

- 

A-B 

B subtracted from A 

QUADRUPLE 

ranked type is converted and result is 
of the higher-ranked type 

* 

A*B 

Product of A and B 



** 

A**B 

A raised to the power of B 



/ 

A/B 

A divided by B 

INTEGER, UNSIGNED, 

One of the real types — REAL if 




REAL, DOUBLE, 

operands are of type REAL or a lower- 


\ 


QUADRUPLE 

ranked type; otherwise, operand of 
lower-ranked type is converted and re¬ 
sult is of higher-ranked type 
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Arithmetic Operators (Cont.) 


Operator 

Example 

Meaning 

Types 

Result Type 

DIV 

A DIV B 

Truncated (toward zero) 
result of A divided by B 

INTEGER and 
UNSIGNED only 

INTEGER if both operands are of type 
INTEGER; UNSIGNED if types are 
mixed or both UNSIGNED; otherwise, 
an error occurs 

REM 

A REM B 

Remainder of A divided 
by B 

Same as DIV 

Same as DIV 

MOD 

A MOD B 

Modulus of A with respect 
to B 

Same as DIV 

Same as DIV 
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Relational Operators 


Operator 

Example 

Result 

= 

A = B 

TRUE if A is equal to B 

< > 

A <> B 

TRUE if A is not equal to B 

< 

A < B 

TRUE if A is less than B 

<= 

A <= B 

TRUE if A is less than or equal to B 

> 

A > B 

TRUE if A is greater than B 

>= 

A >= B 

TRUE if A is greater than or equal to B 
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String Operators 


Operator 

Example 

Result 

+ 

A + B 

String that is the concatenation of strings A and B 

- 

A = B 

TRUE if strings A and B have equal ASCII values 

<> 

A <> B 

TRUE if strings A and B have unequal ASCII values 

< 

A < B 

TRUE if ASCII value of string A is less than that of string B 

<= 

A <= B 

TRUE if ASCII value of string A is less than or equal to that of string B 

> 

A > B 

TRUE if ASCII value of string A is greater than that of string B 

>= 

A >= B 

TRUE if ASCII value of string A is greater than or equal to that of string B 


i nnnnnnnnnnnnnnnnnnnn 








Set Operators 


Operator 

Example 

Result 

+ 

A + B 

Set that is the union of sets A and B 

* 

A * B 

Set that is the intersection of sets A and B 

- 

A- B 

Set of those elements of set A not also in set B 

= 

A = B 

TRUE if set A is equal to set B 

<> 

A <> B 

TRUE if set A is not equal to set B 

<= 

A <= B 

TRUE if set A is not equal to set B 

>= 

> 

V 

II 

dd 

TRUE if set B is a subset of set A 

IN 

C IN B 

TRUE if C is an element of set B 
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1.7 Statements 

Assignment 


{ variable ) 

function-identifier J ’ ex P ression 

CASE 

CASE case-selector OF 

{{ case-label },... : statement } 
[ [ ; ] OTHERWISE 
{ statement } ] 

[;] 

END 


Compound 

BEGIN 
{ statement } 
END 


IF 


IF expression 
THEN 

statementl 
[ ELSE 

statement2 ] 


Procedure Call 


procedure-identifier [({actual-parameter ),...)] 

where actual-parameter is a constant, an 
expression, the name of a procedure or 
function, or a variable. 






OUUUuuUUUuUUUUuUUUU 


FOR 


REPEAT 


FOR control-variable := initial-value 
( TO ) 

( DOWNTO 1 flnal - value D0 
statement 


REPEAT 
{ statement } 
UNTIL expression 


GOTO 

GOTO label 


WHILE 

WHILE expression DO 
statement 


WITH Statement 

WITH { record-variable } DO 
statement 
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1.8 User-Declared Routines 

Procedure-declaration 

[ attribute-list ] PROCEDURE identifier [ formal-parameter-list ] 


Function-declaration 

[ attribute-list ] FUNCTION identifier | formal-parameter-list ] 
: [ attribute-list ] result-type-identifier j ; j » 


Directive: 



Declaration of FORWARD Routine: 


( PROCEDURE ) 
X FUNCTION J 


identifier; block; 


nnnnnnnnnnn 


block 
’ directive 


n (1J1 If 11 If If IT 








Formal parameter list 

{ value-section j 

VAR-section / 

procedure-section / )... 

function-section 1 
foreign-section ) 

value-section: 

{ identifier } : [ attribute-list ] j conformant ^schema } I := I mechanism-specifier ] default-value ] ; 

VAR-section: 

VAR { identifier } : [ attribute-list ] j conformant ^schema } I := I mechanism-specifier ] default-value ] ; 

procedure-section: 

Same as procedure-declaration, but without block or directive. The procedure declaration may be followed by the assignment 
operator (:=), a mechanism specifier, and a default value. 
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function-section: 


Same as function-declaration, but without block and directive. The function declaration may be followed by the assignment 
operator (:=), a mechanism specifier, and a default value. 

foreign-section: 

{ value-section ^ 
procedure-section > 
function-section ' 

mechanism-specifier: 

( %DESCR ) 

) %IMMED ( 

) %REF ( 

( %STDESCR ) 


conformant-schema: 


Array 


lower-bound-identifier..upper-bound-identifier 

: [ attribute-list ] index-type-identifier 

OF [attribute-list ] j type-identifier | 

( conformant-schema J 


i 


PACKED ARRAY [ lower-bound-identifier..upper-bound-identifier 

: [ attribute-list ] index-type-identifier ] OF [ attribute-list ] type-identifier I 
\VARYING [ upper-bound-identifier ] OF | attribute-list ] CHAR 


nnnnnnnnnnnnnnnnnniTJT 
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1.9 Predeclared Routines 


ALLOCATION SIZE 


Function 

Parameter Type 

Result Type 

Action 

BITNEXT(x) 

x = Any type 

INTEGER 

Returns integer value indicating number of bits allo¬ 
cated for a component of type x in a packed array. 

BIT_OFFSET (t,f) 

t = Type name 
f = Field name 

INTEGER 

Returns integer value representing the bit-position of a 
field f in a record of type t. 

BITSIZE(x) 

x = Any type 

INTEGER 

Returns integer value indicating number of bits allo¬ 
cated for a field of type x in a packed record. 

BYTE_OFFSET(t,f) 

t = Type name 
f = Field name 

INTEGER 

Returns integer value representing the byte-position of 
a field f in a record of type t. 

NEXT(x) 

x = Any type 

INTEGER 

Returns integer value indicating number of bytes allo¬ 
cated for a component of type x in an unpacked array. 
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ALLOCATION SIZE (Cont.) 


Function 

Parameter Type 

Result Type 

Action 

SIZE 

(x[,cl,...,cn]) 

x = Any type or 
variable 

c = Case constant 

INTEGER 

Returns integer value indicating number of bytes allo¬ 
cated for a variable or the allocation size of type x. If 
the variable is part of a variant record, case constants 
cl through cn may be specified. 

Procedure 

Parameters 

Action 


None 

ARITHMETIC 

Function 

Parameter Type 

Result Type 

Action 

ABS(x) 

x = Any arithmetic 
type 

Same as x 

Computes the absolute value of x. 

ARCTAN(x) 

x = INTEGER or 
REAL 

REAL 

Computes the arc tangent of x. The result is expressed 
in radians. 
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COS(x) 

x = INTEGER or 
REAL 

REAL 

Computes the cosine of x. The parameter is expressed 
in radians. 

EXP(x) 

x = INTEGER or 
REAL 

REAL 

Computes e x , the exponential function. 

LN(x) 

x = INTEGER or 
REAL 

REAL 

Computes the natural logarithm of x. The value x 
must be greater than 0. 

MAX(xl,...,xn) 

x = Any arithmetic 
type 

Same as x 

Returns maximum value of a list of expressions. 

MIN(xl,...,xn) 

x = Any arithmetic 
type 

Same as x 

Returns minimum value of a list of expresions. 

SIN(x) 

x = INTEGER or 
REAL 

REAL 

Computes the sin of x. The parameter is expressed in 
radians. 

SQR(x) 

x = Any arithmetic 
type 

Same as x 

Computes x 2 , the square of x. 

SQRT(x) 

x = INTEGER or 
REAL 

REAL 

Computes the square root of x. If x is less than 0, an 
error occurs. 
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ARITHMETIC (Cont.) 

Function 

Parameter Type 

Result Type 

Action 

UAND(ul,u2) 

u= Unsigned 

Unsigned 

Performs a binary logical AND on the corresponding 
bits of parameters ul and u2. 

UNOT(ul) 

u = Unsigned 

Unsigned 

Performs a binary logical NOT on the corresponding 
bits of parameter u. 

UOR(ul,u2) 

u= Unsigned 

Unsigned 

Performs a binary logical OR on the corresponding bits 
of parameters ul and u2. 

UXOR(ul,u2) 

u= Unsigned 

Unsigned 

Performs a binary logical exclusive OR on the corre¬ 
sponding bits of parameters ul and u2. 

XOR(pl,p2) 

p = Set or Boolean 
value 

Same as p 

Performs a binary logical exclusive OR operation on 
the corresponding sets or boolean values pi and p2. 

Procedure 

Parameters 

Action 


None 
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CHARACTER STRING 
Function 

BIN(x[,l,d]) 


DEC(x[,l,dJ) 


Parameter Type Result Type Action 


x =Any type ex- VARYING OF 
cept VARYING CHAR 
OF CHAR, 
conformant ar¬ 
ray or VARY¬ 
ING schema 


Converts a parameter x to its binary representation. 
Returns binary value in a VARYING OF CHAR string 
of length, 1 with d significant digits. 


x 


= Any type up 
to 32 bits in 
length except 
VARYING OF 
CHAR, con¬ 
formant array, 
or varying 
schema 
= INTEGER 
= INTEGER 


VARYING OF Converts a parameter x to its decimal representation. 
CHAR Returns decimal value in VARYING OF CHAR string 

of length 1 with d significant digits. 
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CHARACTER STRING (Cont.) 


Function 

Parameter Type 

Result Type 

Action 

HEX(x|,l,d]) 

x = Any type 

except VARY¬ 
ING OF 

CHAR, con¬ 
formant array, 
or VARYING 
schema 

1 =INTEGER 
d = INTEGER 

VARYING OF 
CHAR 

Converts a parameter x to its hexadecimal representa¬ 
tion. Returns hexadecimal value in a VARYING OF 
CHAR string of length 1 with d significant digits. 

INDEX(sl,s2) 

s — Any string type 

INTEGER 

Locates first occurrence of s2 within si. Returns integer 
indicating leftmost position of s2. Returns 0 if s2 is not 
found. 

LENGTH(s) 

s = Any string 
type 

INTEGER 

Returns integer value indicating current length of s. 

innnnnnn 
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OCT(x[,l,d]) 

x = Any type 

except VARY¬ 
ING OF 

CHAR, con¬ 
formant array, 
or VARYING 
schema. 

1 = INTEGER 
d = INTEGER 

VARYING OF 
CHAR 

Converts a parameter x to its octal representation. Re¬ 
turns octal value in a VARYING OF CHAR string of 
length 1 with d significant digits. 

PAD(s,fc,l) 

s = String 

fc = Fill character 

1 = INTEGER 

VARYING OF 
CHAR 

Pads a string s with a fill character until it is of length 
1 . 

STATUSV 

None 

STATUS of 
pervious 
READV or 
WRITEV 

Returns status of last READV or WRITEV completed. 

SUBSTR(s,l,d) 

s = String 

1 = INTEGER 
d = INTEGER 

VARYING OF 
CHAR 

Extracts a substring from another character string be¬ 
ginning at position 1 and extending to length d. 
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CHARACTER STRING (Cont.) 

Function 

Parameter Type 

Result Type 

Action 

UDEC(x[,l,dJ) 

x = Any type up 
to 32 bits in 
length except 
VARYING OF 
CHAR, con¬ 
formant array, 
or VARYING 
schema 

1 =INTEGER 
d = INTEGER 

VARYING OF 
CHAR 

Converts a parameter x to its unsigned decimal repre¬ 
sentation. Returns unsigned value in a string of length 
1 with d significant digits. 

Procedure 

Parameters 

Action 


READV(s,vl,...,vn,e) 

s = Character string 
expression 
v = Variable 
e = Error parameter 

Assigns successive values from the input strings to the variables vl 
through vn. You must specify at least one variable (vl). 


n n nil ll n n n 11 n mi n n 11 11 n on it 









WRITEV(s,pl,...,pn,e) 


s = Character string Writes the values of pi through pn into the character strings, 
variable 

p = Write parameter 
e = Error parameter 


DYNAMIC ALLOCATION 


Function 

Parameter Type 

Result Type 

Action 

ADDRESS(x) 

x = Any variable 
except a compo¬ 
nent of a 
packed struc¬ 
tured type 

POINTER 

Returns the pointer which refers to the parameter x. 

IADDRESS(x) 

x = Any variable 
except a compo¬ 
nent of a 
packed struc¬ 
tured type 

INTEGER 

Returns an integer value which refers to the parameter 

X. 
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DYNAMIC ALLOCATION (Cont.) 


Procedure 

Parameters 

Action 

DISPOSE (p) 

p = Pointer value 

Releases storage for p\ Any pointers to the storage become unde¬ 
fined. 

DISPOSE(p,tl,...,tn) 

p = Pointer value 
t = Tag field constant 

Releases storage for p~; used when p" is a record with variants. If 
tag field values are specified, they must be identical to those speci¬ 
fied when storage was allocated by NEW. 

NEW(p) 

p = Pointer variable 

Allocates storage for p~ and assigns its address to p. 

NEW(p[,pl.pn]) 

p = Pointer variable 
t Tag field constant 

Allocates storage for p A ; used when p" is a record with variants. The 
optional parameters tl through tn specify the values for the tag fields 
of the current variant. All tag field values must be listed in the order 
in which they were declared. They cannot be changed during execu¬ 
tion. NEW does not initialize the tag fields. 
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INPUT/OUTPUT 

Function 

Parameter Type 

Result Type 

Action 

EOF(f) 

f = File variable 

BOOLEAN 

Indicates whether the file position is at the end of the 
file f. EOF(f) becomes TRUE only when the file posi¬ 
tion is after the last component in the file. 

EOLN(f) 

f = Text file 
variable 

BOOLEAN 

Indicates whether the file position is at the end of a 
line. EOLN(f) becomes TRUE only when the file posi¬ 
tion is after the last character in a line, in which case 
the value of T is a space. 

STATUS(f) 

f = File variable 

INTEGER 

Returns 0 if the previous operation on the file suc¬ 
ceeded, -1 if the previous operation encountered an 
EOF, and a positive integer representing an error code 
if the previous operation resulted in an error. 

UFB(f) 

f = File variable 

BOOLEAN 

Returns a Boolean value to indicate whether the last 
file operation gave the file buffer an undefined status. 


VAX PASCAL Language Summary 20 






INPUT/OUTPUT (Cont.) 


Procedure 

Parameters 

Action 

CLOSE(ff,p,e]) 

f = File variable 
p = Parameter 
e = Error parameter 

Closes file f with the specified properties. 

DELETE(f|,e]) 

f = File variable 
e = Error parameter 

Deletes the current component of file f. File f must have relative or 
indexed organization and be opened for direct or keyed access. The 
current component must be locked. 

EXTEND(f|,e]) 

f = File variable 
e = Error parameter 

Opens an existing file for write access; positions file at EOF and 
places the file into generation mode. 

FIND(f[,n,eJ) 

f = File variable 
n = Component 
number 

e = Error parameter 

Moves the current file position to component n of file f. 
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FINDK(ff,kn,kv,m,e]) 

f = File variable 
kn= Key number 
kv = Key value 
m - Match type 
e = Error parameter 

Moves the current position of file f to a specified component. The 
match type can have a value of EQL, GTR, or GEQ to indicate that 
the component to be found has a value in key position kn that is 
equal to, greater than, key value kv. Match type m is optional and 
defaults to EQL. File f must be opened for keyed access. 

GET(f|,e]) 

f = File variable 
e = Error parameter 

Moves the current file position to next component of f. Then GET(f) 
assigns the value of that component f\ the file buffer variable. 

LINELIMIT(f|,n,e]) 

f = Text file variable 
n = Integer 
expression 

e = Error parameter 

Terminates execution of the program when output to file f exceeds n 
lines. The value for n is reset to its default after each call to 
REWRITE for file f. 

LOCATE(f|,n,e|) 

f = File variable 
n = Component 
number 

e = Error parameter 

Positions file f at component n so that the next PUT procedure can 
modify n. 

OPEN(f|,p,e]) 

f = File variable 
p = Parameter 
e = Error parameter 

Opens file f with the specified properties. 
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INPUT/OUTPUT (Cont.) 


Procedure 

Parameters 

Action 

PAGE(f|,e]) 

f = Text file variable 
e = Error parameter 

Skips to the next page of file f. The next line written to f begins on 
the second line of a new page. 

PUT(f|,e]) 

f = File variable 
e = Error parameter 

Writes the value of f A , the file buffer variable, into the file f and 
moves the current file position to the next component of f. 

READ(f|,vl,...,vn,eJ) 

f = File variable 
v = Variable 
e = Error parameter 

Assigns successive values from the input file f to the variables vl 
through vn. You must specify at least one variable (vl). 

READLN 

(f|,vl,...,vn,e]) 

f = File variable 
v = Variable 
e = Error parameter 

Performs the READ procedure, then sets the current file position to 
the beginning of the next line. 

RESET(f|,e]) 

f = File variable 
e = Error parameter 

Enables reading from file f. RESET(f) moves the current file position 
to the beginning of the file f and assigns the first component of f to 
the file buffer variable, f A . EOF(f) is set to FALSE unless the file is 
empty. 









RESETK(f|,kn,eJ) 

f = File variable 
kn= Key number 
e = Error parameter 

Enables reading from file f. RESETK(f,kn) moves the current file 
position to the component with the lowest value in key position kn. 
File f must be opened for keyed access. 

REWRITE(f|,e]) 

f = File variable 
e = Error parameter 

Enables writing to file f. REWRITE(f) truncates the file f to zero 
length and sets EOF(f) to TRUE. 

TRUNCATE(f|,el) 

f = File variable 
e = Error parameter 

Deletes current file component and all components following it. File f 
must have sequential organization. 

UNLOCK(f[,ep 

f = File variable 
e = Error parameter 

Unlocks the current file component if it is locked. 

UPDATE(f[,e]) 

f = File variable 
e = Error parameter 

Writes the contents of the file buffer into the current component. 

File f must have relative or indexed organization and be opened for 
direct or keyed access. The current component must be locked. 

WRITE(f[,pl,...,pn,e]) 

f = File variable 
p = Write parameter 
e = Error parameter 

Writes the values of pi through pn into the file f. At least one pa¬ 
rameter (pi) must be specified. 

WRITELN 
(fl.pl.pn,e|) 

f = File variable 
p = Write parameter 
e = Error parameter 

Performs the WRITE procedure, then skips to the beginning of the 
next line. 
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LOW_LEVEL 


Function 

Parameter Type 

Result Type 

Action 

ADD_INTER-LOCKED 

(e,v) 

e = Assignment 
compatible 
with v 

v= Integer, un¬ 
signed, or sub¬ 
range 

INTEGER 

Adds e to v. Returns -1 if result is negative, 0 if result 
is zero, +1 if result is positive. 

CLEAR_INTER-LOCKED 

(b) 

b = Boolean 

BOOLEAN 

Assigns FALSE to parameter b and returns its original 
value. 

FIND_FIRST_BIT_ 

CLEAR(v[,siJ) 

v = Variable of 
type PACKED 
ARRAY OF 
BOOLEAN 
with integer 
index type 
si = INTEGER 

INTEGER 

Locates the first bit in a PACKED ARRAY OF 
BOOLEAN whose value is 0. The optional start-index 
argument indexes the element at the point which the 
search starts. 
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FIND_FIRST_BIT_ 

SET(v[,si|) 

v = Variable of 
type PACKED 
ARRAY OF 
BOOLEAN 
with integer 
index type 
si = INTEGER 

INTEGER 

Locates the first bit in a PACKED ARRAY OF 
BOOLEAN whose value is 1. The optional start-index 
argument indexes the element at the point which the 
search starts. 

FIND_MEMBER(s,c) 

s = String 
c = SET of CHAR 

INTEGER 

Locates the first character in a string that is a mem¬ 
ber of a specified set. 

FIND_NON-MEMBER(s,c) 

s = String 
c = SET of CHAR 

INTEGER 

Locates the first character in a string that is not a 
member of a specified set. 

SET_INTER-LOCKED(b) 

b = Boolean 

BOOLEAN 

Assigns TRUE to parameter b and returns it original 
value. 


Procedure Parameters Action 

None 
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ORDINAL 

Function 

Parameter Type 

Result Type 

Action 

PRED(x) 

x = Any ordinal 
type 

Same as x 

Returns the predecessor value in the type of x. 

SUCC(x) 

x = Any ordinal 
type 

Same as x 

Returns the successor value in the type of x. 

Procedure 

Parameters 

Action 

None 


PARAMETER 

Function 

Parameter Type 

Result Type 

Action 

ARGUMENT(p,n) 

p = Parameter 
n = INTEGER 

Same as p 

Specifies an argument which corresponds to a routine 
parameter which uses the LIST attribute. 
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ARGUMENT_LIST_ 

LENGTH(p) 

p = Parameter 

INTEGER 

Returns an integer value which represents the number 
of parameters corresponding to a parameter which uses 
the LIST attribute. 

PRESENT(p) 

p = Parameter 

BOOLEAN 

Indicates whether the argument list of a routine con¬ 
tains an argument which corresponds to a formal pa¬ 
rameter. 

Procedure 

Parameters 

Action 

None 

TRANSFER 

Function 

Parameter Type 

Result Type 

Action 

CHR(x) 

x = INTEGER 

CHAR 

Returns the character whose ordinal value is x. 

DBLE(x) 

x = Any arithmetic 
type 

DOUBLE 

Converts the value of x to its double-precision equiva¬ 
lent. 

INT(x) 

x — Any ordinal 
type 

INTEGER 

Converts the value of x to an integer. 
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TRANSFER (Cont.) 


Function 

Parameter Type 

Result Type 

Action 

ORD(x) 

x = Any ordinal 
type 

BOOLEAN 

Returns the ordinal value corresponding to the value 

of X. 

QUAD(x) 

x = Any arithmetic 
type 

QUADRUPLE 

Converts the value of x to its quadruple-precision 
equivalent. 

ROUND(x) 

x = REAL 

INTEGER 

Rounds the REAL value x to the nearest integer. 

SNGL(x) 

x = Any arithmetic 
type 

SINGLE 

Converts the value of x to its single-precision equiva¬ 
lent. 

TRUNC(x) 

x = REAL 

INTEGER 

Truncates the REAL value x to an integer. 

UINT(x) 

x = Any ordinal 
type 

Unsigned 

Converts the value of x to its unsigned equivalent. 

UROUND(x) 

x = REAL 

Unsigned 

Converts the value of x to its unsigned equivalent by 
rounding the fractional part of the value. 

UTRUNC(x) 

x = REAL 

Unsigned 

Converts the value of x to its unsigned equivalent by 
truncating the fractional part of the value. 






Procedure 


Parameters 


Action 


PACK (a,i,z) a = unpacked array variable 

i = starting index of array a 
z = packed array of type a 

UNPACK(z,a,i) z = packed array of type a 

a = Unpacked array variable 
i = Starting index of array a 


Copies components of an unpacked array variable to a packed 
array variable. UNPACK(a,i,z) assigns the components of a, 
starting with a [i], to the array z. 

Copies components of a packed array variable to an unpacked 
array variable. UNPACK(a,i,z) assigns the components of a, 
starting with a [i], to the array z. 


MISCELLANEOUS 


Function 

Parameter Type 

Result Type 

Action 

CARD(s) 

s = Set 

INTEGER 

Returns the number of elements currently belonging to 
the set s. 

CLOCK 

None 

INTEGER 

Returns an integer value equal to the central processor 
time used by the current process. 

EXPO(x) 

x = Real, single, 
double or 
quadruple 

INTEGER 

Returns the integer valued exponent of x’s floating 
point representation. 
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MISCELLANEOUS (Cont.) 

Function 

Parameter Type 

Result Type 

Action 

ODD(x) 

x = Integer or 
unsigned 

BOOLEAN 

Tests whether the value of x is odd. 

UNDEFINED(x) 

x =Real, single, 
double or 
quadruple 

BOOLEAN 

Tests whether x contains a reserved operand. 

ZERO 

None 

See the VAX 
PASCAL 

User’s Guide, 
Table 3-3. 

Sets a variable to its binary zero value. 

Procedure 

Parameters 

Action 


CREATE_DIREC- 

TORY(f[,eJ) 

f = File name 
e = Error parameter 

Creates a new VMS directory or subdirectory named f. 









DATE(str) 

str = Variable of type 
PACKED ARRAY 
[1..U] OF CHAR 

Assigns current date to str. 

DELETE_FILE (f[, e]) 

f == File name 
e = Error parameter 

Deletes one or more VMS files named f. 

ESTABLISH(id) 

id = Function 
identifier 

Establishes a VAX condition handler to process exceptions. Id must 
be the name of a routine that has the ASYNCHRONOUS attribute. 

HALT 

None 

Calls LIB$STOP, signalling PAS$ABORT. Without an appropriate 
condition handler, HALT terminates execution of the program. 

RENAME_FILE(ofn,nfn,e) 

ofn = Old file name 
nfn = New file name 
e = Error parameter 

Renames one or more VMS files, ofn, to a new name, nfn. 

REVERT 

None 

Cancels a condition handler activated by the ESTABLISH procedure. 

TIME(str) 

str = Variable of type 
PACKED ARRAY 
[1..11J OF CHAR 

Assigns current time to str. 
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1.10 OPEN and CLOSE Procedures 

Syntax of OPEN Procedure 


1. OPEN ( file-variable 
,file-name] 

, file-history] 

, record-length] 

,access-method] 

,record-type] 

, carriage-control] 

,organization] 

, disposition] 

,file-sharing] 

,user-action] 

, default] 

, ERROR := error-recovery] ) 


2 . 


OPEN ( 


FILE_VARIABLE := file-variable 

,FILE_NAME := file-name] 

,HISTORY := file-history] 

,RECORD_LENGTH := record-length] 

,ACCESS_METHOD := access-method] 

,RECORD_TYPE := record-type] ...) 

,CARRIAGE_CONTROL := carriage-control] ► 

,DISPOSITION := disposition] 

,SHARING := file-sharing] 

,USER_ACTION := user-action] 

,DEFAULT := default-file-name] 

, ERROR := error-recovery] 


NOTE — The FILE_VARIABLE parameter is never optional; however, 

when the second syntax is used, this parameter does not have to be the first 
one listed in the OPEN procedure. The ERROR parameter, if used, must be 
the last parameter listed. 


n n 
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Summary of OPEN Procedure Parameters 


Parameter 

Name 


Parameter 

Values 


Default 


FILE_VARIABLE 

FILE_NAME 

FILE_HISTORY 

RECORD_LENGTH 

ACCESS_METHOD 

RECORD_TYPE 

CARRIAGE_CONTROL 


Identifier of a PASCAL file variable 
VAX/VMS file specification 

OLD, NEW, READONLY, 
UNKNOWN 

Any positive integer value 


DIRECT, KEYED, or SEQUENTIAL 

FIXED, VARIABLE, STREAM, 
STREAM_CR, STREAM_LF 

LIST, CARRIAGE, FORTRAN, 
NOCARRIAGE, NONE 


None; must be specified 

None if the file is internal; otherwise, see table 
below 

NEW (OLD, if an external file is opened using 
RESET) 

133 bytes for text files; for other files, parameter is 
ignored 

SEQUENTIAL 

VARIABLE for new text files or FILE OF VARY¬ 
ING; FIXED for other new files; for old files, rec¬ 
ord type is established at file creation 

LIST for text files and FILE OF VARYING; 
NONE for all other files. Old files use their exist¬ 
ing carriage-control parameters. 
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Summary of OPEN Procedure Parameters (Cont.) 


Parameter 

Name 

Parameter 

Values 

Default 

ORGANIZATION 

SEQUENTIAL, RELATIVE, 

INDEXED 

SEQUENTIAL for new files; previous organiza¬ 
tion for existing files 

DISPOSITION 

SAVE, DELETE, PRINT, PRINT_ 
DELETE, SUBMIT, SUBMIT_ 
DELETE 

SAVE for named files; DELETE for files without a 
file name parameter 

SHARING 

READONLY, READWRITE, NONE 

READONLY if file history is READONLY; 
NONE for all other files 

USER_ACTION 

Function-identifier 

None 

DEFAULT 

Any character string expression 

None 

ERROR 

CONTINUE, MESSAGE 

MESSAGE 
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Syntax of CLOSE Procedure 

1. CLOSE ( file-variable 
,disposition] 

,user-action] 

,ERROR := error-recovery] ) 


Summary of Parameters to the CLOSE Procedure 


Parameter 

Name 

Parameter 

Values 

Default 

FILE-VARIABLE 

Identifier of a PASCAL file variable 

None; must be specified 

DISPOSITION 

SAVE, DELETE, PRINT, PRINT_DELETE, 

SUBMIT, SUBMIT—DELETE 

Same as the DISPOSITION parameter in 
the OPEN procedure 

USER_ACTION 

Function-identifier 

None 

ERROR 

CONTINUE, MESSAGE 

MESSAGE 


CLOSE ( 


FILE_VARIABLE := file-variable 

,DISPOSITION := disposition] 

,USER_ACTION := user-action] 

, ERROR := error-recovery] 


...) 


NOTE—The FILE_VARIABLE parameter is never optional; however, 

when the second syntax is used, this parameter does not have to be the first 
one listed in the CLOSE procedure. The ERROR parameter, if used, must be 
the last parameter listed. 
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1.11 Attributes 

Attribute-list 

[ { identifier [ ( { constant-expression },...) 

NOTE — In attribute classes having only one entry, the effects of that attribute can be achieved only when the attribute is 
specified; in this table, the default for such classes is listed as ‘None.’ 


Class 

Attributes 

Default 

Alignment 

ALIGNED|(n)] 

Aligned on memory boundary ending in n zero bits 

ALIGNED(l), except for packed records 


UNALIGNED 

May be aligned on any bit boundary 


Allocation 

STATIC 

Storage exists for the lifetime of the executable image 

STATIC at program or module level; 
AUTOMATIC at all inner levels 


AUTOMATIC 

Storage exists for the lifetime of the declaring block 
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AT(n) 

Object resides at exact address n 
COMMON [(identifier)] 

Storage allocated in the overlaid program section 
named; the default is the name of the variable 

PSECT(identifier) 

Storage allocated in the program section named 


ASYNCHRONOUS 


ASYNCHRONOUS 

May be called by an asynchronous event 


None 


CHECK 


CHECK=( { identifier } ,...) 

Enables checking of listed options; options are identi¬ 
cal to those available with the /CHECK qualifier on 
the PASCAL command (see Section 2.0) 


CHECK=(BOUNDS,NOCASE_ 

SELECTORS,NOPOINTERS, 
NOOVERFLOW,NOSUBRANGE) 
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Attribute-list (Cont.) 


Class 


Attributes 


Default 


Double-precision 

G_FLOATING 

Specifies G_floating representation 

G_FLOATING 


NOG_FLOATING 

Specifies D_floating representation 


ENVIRONMENT 1 

ENVIRONMENT(name-string) 

Creates an environment file 

None 

HIDDEN 

HIDDEN 

Prevents information from being included in the envi¬ 
ronment file 

None 


IDENT IDENT(name-string) IDENT( 01' 

Additional information about the name of a compila¬ 
tion unit 

n u it ii n n d nnnnnnnn 
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INHERIT 

INITIALIZE 

KEY 

LIST 

Optimization 


INHERIT( { name-string } ,...) 
Inherits one or more environment files 


INITIALIZE 

Called in unspecified order before the main program 
is entered 

KEY [(n)] 

Designates the key field of a record; n defaults to 0 
LIST 

Specifies how to pass actual parameters that do not 
correspond to formal parameters named in the rou¬ 
tine heading 


OPTIMIZER {identifier},...) 

NOOPTIMIZE 

Enables optimizations for listed options; options are 
identical to those available with the /OPTIMIZE 
qualifier on the PASCAL command (See Section 2.0) 


None 


None 


None 


None 


OPTIMIZE 
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Attribute-list (Cont.) 


Class 


Attributes 


Default 


OVERLAID OVERLAID None 

Storage for static variables declared at program or 
module level will overlay storage of static variables in 
all other OVERLAID compilation units 

Parameter passing CLASS A None 

Specifies contiguous arrays of either atomic data 
types or fixed-length strings 

CLASS—NCA 

Specifies a non-contiguous array descriptor 
CLASS_S 

Specifies single descriptor form used for scalar data 
and fixed-length strings 

IMMEDIATE 

Causes formal parameter value to be passed 
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REFERENCE 

Causes the address of the formal parameter to be 
passed 


POS 

POS(n) 

Depends on how field type is stored 


Field begins at bit position n, relative to the begin¬ 
ning of the record 


READONLY 

READONLY 

Object can be read but cannot have values assigned 
to it 

None 


Size 

BIT 

(n) 

Determines the amount of stor¬ 

Depends on data type 


BYTE 

(n) 

age reserved; n defaults to 1 


WORD 

\n)_ 




LONG 

(n) 




QUAD 

(n) 




OCTA 

(n); 
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Attribute-list (Cont.) 


Class 


Attributes 


Default 


TRUNCATE TRUNCATE None 

Indicates an actual parameter list can be truncated 
at a specific point 

UNBOUND UNBOUND None 

When called does not receive an environment pointer 
to define its environment 

UNSAFE UNSAFE None 

Suspends all type checking 

VALUE VALUE None 

Causes a variable to be a reference to an external 
constant or a defining point of a global constant 

Visibility LOCAL LOCAL 

Not available to independently compiled units 


flJLflJLn n n n n n n n n n n n n it n 





GLOBAL [(identifier)] 

Strong definition for reference by other independ¬ 
ently compiled units 



EXTERNAL [(identifier)] 

Assumed to correspond to a GLOBAL declaration in 
another independently compiled unit 

WEAK-GLOBAL [(identifier)] 

WEAK—EXTERNAL [(identifier)] 

Weak global and external definitions 

VOLATILE 

VOLATILE None 

Subject to unusual side effects 

WRITEONLY 

WRITEONLY None 

Specifies that an object can have values, but cannot 
be read by a program 


1. Name-string is a character-string constant that cannot use the VAX PASCAL extended string syntax. 
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Attributes on Routines and Compilation Units 


Class 

Routine 

Parameter 

Routine 

Compilation 

Unit 

Allocation 

No 

Yes 1 

Yes 1 

ASYNCHRONOUS 

Yes 

Yes 

No 

CHECK 

No 

Yes 

Yes 

Double-precision 

No 

No 

Yes 

ENVIRONMENT 

No 

No 

Yes 

IDENT 

No 

No 

Yes 

INHERIT 

No 

No 

Yes 

INITIALIZE 

No 

Yes 

No 

LIST 

Yes 

No 

No 

Optimization 

No 

Yes 

Yes 

OVERLAID 

No 

No 

Yes 

UNBOUND 

Yes 

Yes 

No 

Visibility 

No 

Yes 

Yes 2 


1. PSECT is the only allocation attribute allowed 

2. EXTERNAL and WEAK_EXTERNAL not allowed 


n (i n n n n n n n n n n n ji ji ji ji n n n 
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Attributes on Data Types 


Data Item 


Class 

Variable 

Formal 

Parameter 

Pointer 
Base Type 

Component 1 

Function 

Result 

Various 

Items 2 

Alignment 

Yes 

Yes 3 

Yes 3 

Yes 4 

Yes 

No 

Allocation 

Yes 

No 

No 

No 

No 

No 

HIDDEN 

Yes 

No 

Yes 

No 

No 

No 

KEY 

No 

No 

No 

Yes 5 

No 

No 

LIST 

No 

Yes 

No 

No 

No 

No 

Parameter- 

No 

Yes 

No 

No 

No 

No 

passing 

1. Component of a record, array, VARYING string, or file (includes conformant schemas). 

2. Index of an array, tag field of a variant record (when no tag identifier is present), base type of a set. 


3. UNALIGNED not allowed. 

4. Not allowed on components of files or VARYING strings. 

5. Allowed only on record fields (including the tag field of a variant record). 
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Attributes on Data Types (Cont.) 


Data Item 

Class 

Variable 

Formal 

Parameter 

Pointer 

Base Type 

Component 1 

Function 

Result 

Various 

Items 2 

POS 

No 

No 

No 

Yes 5 

No 

No 

READONLY 

Yes 

Yes 

Yes 

Yes 

No 

No 

Size 

Yes 

Yes 6 

Yes 

Yes 7 

Yes 

No 

TRUNCATE 

No 

Yes 

No 

No 

No 

No 

UNSAFE 

Yes 

Yes 8 

Yes 

Yes 

Yes 

Yes 

VALUE 

Yes 

No 

No 

No 

No 

No 

Visibility 

Yes 

No 

No 

No 

No 

No 

VOLATILE 

Yes 

Yes 

Yes 

Yes 

Yes 

No 

WRITEONLY 

Yes 

Yes 

Yes 

Yes 

No 

No 


5. Allowed only on record fields (including the tag field of a variant record). 

6. Not allowed on conformant parameters. 

7. Not allowed on components of files or VARYING strings, or on structured types with file components. 

8. Not allowed on conformant VARYING parameters. 









I) if u ti u u u it u y it ii u tr u o u u u u 

2.0 Compiling A PASCAL Program 

PASCAL Command 

PASCAL [ (/command-qualifier) ... ] { file-spec [ { / file-qualifier] ...]){ t} ••• 

PASCAL [ {/command-qualifier} ... ] { file-spec }...[{ / file-qualifier} ... ] 

To compile multiple source files separately, separate their file specifications with commas. To concatenate the source files and 
compile them as one unit, separate their file specifications with plus signs. 

Command Qualifiers 

Qualifier Default 

/CHECK [ =( {option} ,...) f /CHECK=BOUNDS 

/NOCHECK 

/CROSS-REFERENCE /NOCROSS—REFERENCE 

/NOCROSS—REFERENCE 
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Command Qualifiers (Cont.) 


Qualifier 


Default 


/DEBUG [ =( {option} ,...) ] 
/NODEBUG 

/DIAGNOSTICS [=file-spec] 
/NODIAGNOSTICS 

/ENVIRONMENT [ =file-spec ] 2 
/NOENVIRONMENT 

/ERROR_LIMIT [ =n ] 

/N OERROR_LIMIT 

/G—FLOATING 3 

/NOG_FLOATING 

/LIST [ =file-spec ] 

/NOLIST 

/MACHINE_CODE 

/N OMACHINE_CODE 


/DEBUG=TRACEBACK 

/NODIAGNOSTICS 


Determined by the ENVIRONMENT attribute in the source program 

/ERROR_LIMIT=30 

/NOG_FLO ATIN G 

/NOLIST (interactive) 

/LIST=input-file.LIS (batch) 

/NOMACHINE_CODE 




iiuiiiiuuuuuuuuuuuauuuft 

/OBJECT I =file-spec ] /OBJECT=input-file.OBJ 

/NOOBJECT 

/OLD_VERSION 

/N OOLD_VERSION 

/OPTIMIZE I=(|option|,...)] 

/NOOPTIMIZE 

/SHOW 
/NOSHOW 

/STANDARD [ =option ] 

/NOSTANDARD 

/WARNINGS 
/NOWARNINGS 


1. The CHECK, OPTIMIZE, and NOOPTIMIZE attributes in the source program take precedence over the /CHECK, /OPTIM¬ 
IZE, and /NOOPTIMIZE qualifiers on the PASCAL command. 

2. The /ENVIRONMENT qualifier takes precedence over the ENVIRONMENT attribute in the source program.. 

3. A warning occurs if the /G_FLOATING (or /NOG_FLOATING) qualifier on the PASCAL command conflicts with a 

G—FLOATING (or NOG_FLOATING) attribute in the source program. 


/NOOLD_VERSION 

/OPTIMIZE 

/SHOW=(DICTIONARY, HEADER, INCLUDE, SOURCE, STATISTICS) 

/NOSTANDARD 

/WARNINGS 
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/CHECK Qualifier Options 1 

/DEBUG Qualifier Options 

/Optimize 2 

/SHOW 

ALL 

ALL 

ALL 

ALL 

NONE 

NONE 

NONE 

NONE 

[NOj BOUNDS 

[NOJ CASE_SELECTORS 

[NO] OVERFLOW 
[NO] POINTERS 
[NO]SUBRANGE 

[NO] SYMBOLS 
[NO] TRACEBACK 

[NOjlNLINE 

[NOjDICTIONARY 

[NOJHEADER 

[NOjlNCLUDE 

[NOjSOURCE 

[NOjSTATISTICS 


1. These options are identical to those available with the CHECK attribute (see Section 1.11). 

2. These options are identical to those available with the OPTIMIZE attribute (see Section 1.11). 


nnnnnnnnnnnnnnnnnnniT 






3.0 Linking a PASCAL Program 

LINK Command 

LINK [ |/command-qualifier| ... ] { file-spec [ { / file-qualifier) ... ] j j t! ••• 

Regardless of whether the file specifications are separated with commas or with plus signs, the linker creates a single executable 
image. 

Command Qualifiers 


Qualifier 

Default 

/EXECUTABLE f =file-spec ] 
/NOEXECUTABLE 

/EXECUTABLE=object-file.EXE 

/SHAREABLE [ =file-spec ] 
/NOSHAREABLE 

/NOSHAREABLE 

/BRIEF 
(No negation) 

/CROSS_REFERENCE 

/NOCROSS—REFERENCE 

Not applicable 

/NOCROSS_REFERENCE 
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Command Qualifiers (Cont.) 


Qualifier 


Default 

/FULL 
(No negation) 

Not applicable 


/MAP [ =file-spec ] 

/NOMAP 

/NOMAP (interactive) 
/MAP=object-file.MAP (batch) 


/DEBUG 

/NODEBUG 

/NODEBUG 


/TRACEBACK 

/NOTRACEBACK 

/TRACEBACK 



4.0 Executing a PASCAL Program 

RUN Command 


RUN [ / [NO] DEBUG ] file-spec 






5.0 Debugging a PASCAL Program 


Summary of Debugging Commands 
ALLOCATE n-bytes 

Expands the debugger’s memory pool. Can be used if you get a “no free storage” error message. 

ATTACH process-name 

Switches you to an already active or “spawned” process. (See SPAWN.) Same effect as ATTACH in DCL. 


CALL routine 


I 


addr-expr 
%ADDR addr-expr 
%DESCR lang-expr 
%REF lang-expr 
%VAL lang-expr 



Calls a routine and passes argument(s) if specified. 
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Summary of Debugging Commands (Cont.) 


CANCEL ALL 

Cancels all breakpoints, tracepoints, and watchpoints, and restores the mode and scope to their original values. 


CANCEL BREAK 


/ALL 

/BRANCH 

/CALL 

/EXCEPTION 

/INSTRUCTION 

/LINE 

entry-name 

%LINE line-number I [...] 
nonsymbolic-addr | 
symbolic-ref J 


Cancels the specified breakpoint(s) or all breakpoints. 









CANCEL DISPLAY 


f /ALL 

1 display-name[,...] 


Cancels one or more, or all, displays. 


CANCEL EXCEPTION BREAK 

Cancels the effect of SET EXCEPTION BREAK and restores the debugger’s default method for handling exceptions, letting the 
program’s condition handlers receive control. Same effect as CANCEL BREAK /EXCEPTION. 


CANCEL MODE 

Restores the radix and display modes to their defaults. Cancels SET MODE. 


CANCEL MODULE f/ALL 1 
|module!,...] J 

Deletes one or more, or all, modules from the debugger symbol table. 
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Summary of Debugging Commands (Cont.) 


CANCEL RADIX [/OVERRIDE] 

Sets the radix back to the default. Cancels SET RADIX. 


CANCEL SCOPE 

Resets the scope to its default, PC scoping. 


CANCEL SOURCE [/MODULE=module-name] 

Cancels the source directory search list established previously by SET SOURCE for the specified module or for all modules. 






CANCEL TRACE 


/ALL 

/BRANCH 


/CALL 

/EXCEPTION 

/INSTRUCTION 

/LINE 





Cancels the specified tracepoint(s) or all tracepoints. 


CANCEL TYPE/OVERRIDE 


Restores the debugger’s default interpretation of variables, which uses the variables’ declared data types and extents. 
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Summary of Debugging Commands (Cont.) 



/ALL 


CANCEL WATCH 

[ nonsymbolic-addr^ 



< symbolic-ref V | 



1 variable-ref 1 



Cancels the specified watchpoint(s) or all watchpoints. 


CANCEL WINDOW f /ALL 1 

| window-name[,...] J 

Removes one or more, or all, window definition(s), as specified by SET WINDOW or as predefined by the debugger. 


CTRL/C 

CTRL/Y 


Interrupts program execution and returns control to the command interpreter. 









CTRL/W 

Refreshes the screen if you are in screen mode. Same effect as DISPLAY/REFRESH. 


CTRL/Z 

Terminates a debugging session. Same effect as EXIT. 


DECLARE name:kind[,...] 

In a command procedure with parameters, binds the actual parameters to the formal parameters. 


DEFINE 


/ADDRESS 

/COMMAND 

/LOCAL 

/VALUE 


symbol=parameter[,...] 


Sets up one or more abbreviations for an address, a value, and/or a DEBUG command. 
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Summary of Debugging Commands (Cont.) 


DEFINE/KEY 


/[N01ECH0 

/[N 0 jIF_STATE=state-name 

/[NO]LOCK_STATE 

/[NO]LOG 

/[N 0] SET_STATE 

/[N O] TERMINATE 


[...] key-name “equiv-string” 


Sets up a keypad definition. Same effect as DEFINE/KEY in DCL. 


F /[NO]LOG 


1 /ALL 1 

/NOSTATE 

/STATE=(state-name[,...]) J| 

[...] 

1 key-name J 


DELETE/KEY 

Removes a keypad definition. Same effect as DELETE/KEY in DCL. 
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DEPOSIT 


/ASCIC 

/ASCID 

/ASCII:length 

/ASCIW 

/ASCIZ 

/BYTE 

/DATE_TIME 

/D_FLOAT 

/FLOAT 

/G—FLOAT 

/H_FLOAT 

/INSTRUCTION 

/LONGWORD 

/OCTAWORD 

/PACKEDin 

/QUADWORD 

/WORD 


addr-exp=lang-expr 


Changes the contents of a specified variable or program location. Similar to an assignment statement. 
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Summary of Debugging Commands (Cont.) 


DISPLAY display-name [AT window-name] [kind] [,...] 
Shows a display. 


DISPLAY/CLEAR display-name [AT window-name] [kind] [,...] 
Empties the contents of a display. 


DISPLAY/GENERATE [display-name [AT window-name] [kind] [,...]] 
Regenerates the contents of a display. 


DISPLAY/HIDE display-name[AT window-name] [kind] [,...] 
Puts a display behind any other displays. 







DISPLAY/[NO]MARK_CHANGE display-name [AT window-name] [kind] [,...] 

Highlights changes in a DO display. 


DISPLAY/REFRESH [display-name [AT window-name] [kind] [,...]] 
Refreshes the screen contents. Same effect as CTRL/W. 


DISPLAY/REMOVE display-name [AT window-name] [kind] [,...] 
Removes display(s) from the screen. 


DISPLAY/SIZE:n display-name [AT window-name] [kind] [,...] 
Changes a display’s maximum size. 
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Summary of Debugging Commands (Cont.) 


EDIT [/[NOJEXIT] [[module-name\]line-number] 

Puts you into the VAX Language-Sensitive Editor, centered at the source line where your source window is centered. (EDIT works 
only if you have this editor on your system.) 


EVALUATE 


/BINARY 

/CONDITION-VALUE 

/DECIMAL 

/HEXADECIMAL 

/OCTAL 


lang-expr[,...] 


Evaluates an expression and displays the results according to the current or specified radix setings. 


EVALUATE/ADDRESS 


[ /BINARY H 

/DECIMAL 
/HEXADECIMAL 
/OCTAL 


addr-expr [,...] 










Evaluates a symbolic reference or address expression and either displays its virtual address in the current or specified radix or, for a 
variable assigned to a register, in the register. 


EXAMINE 


/ASCIC 

/ASCID 

/ASCII: length 

/ASCIW 

/ASCIZ 

/BINARY 

/BYTE 

/CONDITION_VALUE 

/DATE_TIME 

/DECIMAL 

/DEFAULT 

/D_FLOAT 

/FLOAT 

/G_FLOAT 

/H_FLOAT 

/HEXADECIMAL 


[addr-expr[: addr-expr]] [,.. .1 
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Summary of Debugging Commands (Cont.) 


EXAMINE 

(Cont.) 


/INSTRUCTION 

/LONGWORD 

/[NOjSYMBOL 

/OCTAL 

/OCTAWORD 

/PACKED :n 

/PSL 

/PSW 

/QUADWORD 

/SOURCE 

/WORD 


Displays the current contents of one or more variables or program locations. 


EXIT 


Ends the debugging session or the execution of commands in a command procedure or DO command sequence. 











EXITLOOP [n level] 

Brings the program out of a loop. 


@file-spec [Pl[,P2[,...,Pn]]] 

Reads debugger commands from the specified command procedure file, and passes any needed parameter(s) to that file. 


FOR name=exprl TO expr2[BY expr3]DO(command[;...]) 

Sets up a loop for iterating one or more debugging commands. 
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Summary of Debugging Commands (Cont.) 


[ entry-name 

%LINE line-number 
nonsymbolic-addr 
symbolic-ref 


Starts or continues program execution. 


HELP [topic...] 

Displays a description of a debugger command, parameter, or qualifier. 


IF Boolean-expr THEN(command[;...]) [ELSE(command[;...])] 

Provides for conditional execution of one or more debugging commands. 








REPEAT lang-expr DO(command[;...]) 

Provides for a specified number of iterations of one or more debugging commands. 


SAVE old-display AS new-display [,...] 

Saves the contents of an existing screen display in a new screen display. 


SCROLL 


/BOTTOM 

/DOWN[:n] 

/LEFT[:n] 

/RIGHT[:n] 

/TOP 

AJPl:n] 


[display-name] 


Scrolls a window display in a specified direction. 
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Summary of Debugging Commands (Cont.) 


SEARCH 


[/ALL 

/NEXT [...] [range]string 

/IDENTIFIER 
L /STRING 


Searches a program region for one or all occurrences of a string. 


W /OUTPUT 
SELECT /SCROLL 
/SOURCE 


[...] [display-name] 


Causes a screen display to be selected as the current output, scrolling, or source display. 










UIlUUUUUKlUUUUUUUUUUUu 


SET BREAK 


/AFTER: n 
/INTO 

/[NO] SILENT 
/[NOISOURCE 
/[NOlSYSTEM 
/OVER 

/TEMPORARY 


[...]addr-expr[,...][WHEN(lang-expr)][DO(command[;...])] 


Sets a breakpoint at a specified location in the program. 


SET BREAK/BRANCH 


/AFTER: n 
/INTO 

/[NOlSILENT 

/[NOISOURCE 

/[NOlSYSTEM 

/OVER 

/TEMPORARY 


[...][WHEN(lang-expr)][DO(command[;...])] 


Sets a breakpoint that takes effect on every branch instruction. 


VAX PASCAL Language Summary 46 











Summary of Debugging Commands (Cont.) 


SET BREAK/CALL 


/AFTER: n 
/INTO 

/[NO] SILENT 
/[NO] SOURCE 
/[NO] SYSTEM 
/OVER 

/TEMPORARY 


[...] [WHEN(lang-expr)] [DO(command[;...])] 


Sets a breakpoint that takes effect on every call. 


SET BREAK/EXCEPTION 


/AFTER: n 
/INTO 

/[NO] SILENT 
/[NO] SOURCE 
/[NO] SYSTEM 
/OVER 

/TEMPORARY 


[...][WHEN(lang-expr)][DO(command[;...])] 


Sets a breakpoint that takes effect on every exception. 
















SET BREAK/INSTRUCTION [=op-code[,...]] 


/AFTER: n 
/INTO 

/[NO] SILENT 
/[NO]SOURCE 
/[NO] SYSTEM 
/OVER 

/TEMPORARY 


[...][WHEN(lang-exp)] [DO(cmd[;...])] 


Sets a breakpoint that takes effect on every assembly language instruction, or on the instruction(s) with the specified op-code(s). If 
more than one op-code is listed, the list must be in parentheses. 


SET BREAK/LINE 


/AFTER: n 
/INTO 

/[NO] SILENT 
/[NO] SOURCE 
/[NO] SYSTEM 
/OVER 

/TEMPORARY 


[...] [WHEN(lang-expr)] [DO(command[;...])] 


Sets a breakpoint that takes effect on every line. 
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Summary of Debugging Commands (Cont.) 


SET BREAK/MODIFY 


/AFTER: n 
/INTO 

/[NO] SILENT 
/[NO] SOURCE 
/[NO] SYSTEM 
/OVER 

/TEMPORARY 


[...]addr-expr[,...] [WHEN(lang-expr)] [DO(command[;...])] 


Sets a watchpoint. Same effect as SET WATCH. 


SET BREAK/RETURN 


/AFTER: n 
/INTO 

/[NO] SILENT 
/[NO]SOURCE 
/[NO] SYSTEM 
/OVER 

/TEMPORARY 


Sets a breakpoint on every return instruction. 


[...] [WHEN(lang-expr)] [DO(command[;...])] 













SET DISPLAY 


/MARK-CHANGE 

/REMOVE 

/SIZE:n 


[display-name [AT window] [kind] [,...]] 


Establishes a display to be shown on the terminal screen. 


SET EXCEPTION BREAK 

Causes the debugger to treat external exception conditions as if they were breakpoints and to interrupt the program when an 
exception occurs, rather than allowing condition handlers to be executed. 


SET LANGUAGE lang-name 

Loads the parse table for the specified language, enabling the debugger to accept expressions in the language’s syntax. 
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Summary of Debugging Commands (Cont.) 


SET LOG [file-spec] 

Specifies the name of a log file to which debugger output will be written when the SET OUTPUT LOG command is issued. 


SET MARGIN 


left margin: 

left-margin:right-margin 

right-margin 

:right-margin 


Specifies margin(s) to be used by the debugger in displaying source code. 


SET MAX_SOURCE_FILES n-files 

Specifies the maximum number of source files to be kept open at one time. 


nflflflflflflflfliinflnnnnnnnn 
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( BINARY \ 

DECIMAL ) [,...] 

HEXADECIMAL I 

[NO]G_FLOAT \ 

[NO]KEYPAD / 

[NO] SCREEN I 
[NO]SYMBOL ) 

OCTAL / 

Sets the mode for displaying debugger output and/or accepting input, as applicable. 


SET MODULE [/ALLOCATE] f /ALL 1 

1 module-name [,...] J 

Adds the symbols from the indicated module(s) to the debugger symbol table. 
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Summary of Debugging Commands (Cont.) 


1 [N0]L0G ) 

[NO]SCREEN_LOG I [,...] 

[NOITERMINAL [ 

[NO] VERIFY J 

Controls whether the debugger writes output to a log file or to the terminal, as well as whether it echoes commands executed from 
command procedures. 


[ /INPUT 
/OUTPUT [...] 
/OVERRIDE J 


' BINARY 
DECIMAL 
DEFAULT 
HEXADECIMAL 
OCTAL 


Specifies the radix of numbers for input and/or output. 










SET SCOPE H/MODULEU 1 scope-number 1 [,...] 

I pathname I 

Specifies the program scope(s) in which the debugger is to search for a symbol. 


I /ALL ) 

IDENTIFIER I [,...] 
NEXT f 

STRING J 


Specifies the search parameters to be used in subsequent SEARCH commands. 


SET SOURCE |/MODULE=module-name] 
Specifies where the debugger is to search for 


rdirectory-spec^ 
(^file-spec 






source files for the specified module or for all modules. 
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Summary of Debugging Commands (Cont.) 


SET STEP 


r BRANCH 
CALL 

EXCEPTION 

IN STRUCTION [=opcode] 

INTO 

LINE 

[NO] SILENT 
[NO] SOURCE 
[NO] SYSTEM 
OVER 
RETURN 


Specifies the effect of the STEP command. 


SET TERMINAL/WIDTH: n 

Sets the terminal width used for formatting output from the debugger (but does not change the terminal width itself). 








SET TRACE 


/AFTER: n 
/INTO 

/[NO] SILENT 
/[NOlSOURCE 
/[NOISYSTEM 
/OVER 

/TEMPORARY 


[...] [WHEN(lang-expr)](addr-expr)[,...] [DO(command[;...])] 


Sets tracepoint(s) on the given address(es). 


SET TRACE/BRANCH 


/AFTER:n 

/INTO 

/[NOJSILENT 

/[NOlSOURCE 

/[NOISYSTEM 

/OVER 

/TEMPORARY 


[...] [WHEN(lang-expr)][DO(command[;...])] 


Sets a tracepoint that takes effect on every branch instruction. 
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Summary of Debugging Commands (Cont.) 


SET TRACE/CALL 


/AFTER:n 

/INTO 

/[NO] SILENT 
/[NO] SOURCE 
/[NO] SYSTEM 
/OVER 

/TEMPORARY 


[...] [WHEN(lang-expr)] [DO(command[;...])] 


Sets a tracepoint that takes effect on every call. 


SET TRACE/EXCEPTION 


/AFTER: n 
/INTO 

/[NO] SILENT 
/[NO] SOURCE 
/[NO]SYSTEM 
/OVER 

/TEMPORARY 


[...] [WHEN(lang-expr)] [DO(command[;...])] 


Sets a tracepoint that takes effect on every exception. 
















SET TRACE/INSTRUCTION[=op-code] [,...] 


/AFTER: n 
/INTO 

/[NO] SILENT 
/[NOlSOURCE 
/[NOJSYSTEM 
/OVER 

/TEMPORARY 


[...] [WHEN(lang-expr)] [DO(cmd[;...])] 


Sets a tracepoint that takes effect on every assembly language instruction, or on the instruction(s) with the specified op-code(s). If 
more than one op-code is listed, the list must be in parentheses. 


SET TRACE/LINE 


/AFTER: n 
/INTO 

/[N 01 SILENT 
/[NOJSOURCE 
/[NOJSYSTEM 
/OVER 

/TEMPORARY 


[...] [WHEN(lang-expr)] [DO(command[;...J)J 


Sets a tracepoint that takes effect on every line. 
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Summary of Debugging Commands (Cont.) 


SET TRACE/MODIFY 


/AFTERin 

/INTO 

/[NO] SILENT 
/[NO]SOURCE 
/[NO] SYSTEM 
/OVER 

/TEMPORARY 


[...]addr-expr[,...] [WHEN(lang-expr)] [DO(command[;...])] 


Sets one or more watchpoints on the given address(es), and continues execution after modification of the watched variable(s). 


SET TRACE/RETURN 


/AFTER: n 
/INTO 

/[NO] SILENT 
/[NO] SOURCE 
/[NO] SYSTEM 
/OVER 

/TEMPORARY 


[...]addr-expr [WHEN(lang-expr)] [DO(command[;...])] 


Sets a tracepoint on the return from the specified routine. 


n (l d n n n n n n n n n n n it n n n n ji 












SET TYPE 


[/OVERRIDE] 


ASCIC 

ASCID 

ASCII: length 

ASCIW 

ASCIZ 

BYTE 

DATE_TIME 

D_FLOAT 

< FLOAT > 

G_FLOAT 
H—FLOAT 
INSTRUCTION 
LONGWORD 
OCTAWORD 
PACKED:n 


QUADWORD 

WORD 


Sets the default data type for the DEPOSIT and EXAMINE commands for locations that do not have declared data types, or if 
/OVERRIDE is used, for all locations. 
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Summary of Debugging Commands (Cont.) 


SET WATCH 


/AFTER: n 
/[NO] SILENT 
/[NO]SOURCE 
/TEMPORARY 


[.. .]addr-expr[,...] [WHEN(lang-expr)] [DO(command[,...])] 


Establishes a watchpoint on one or more static variables. 


SET WINDOW name AT (start-line, line-count) 
Establishes a screen window definition. 


SHOW BREAK 

Displays the current breakpoints. 


n a ii r n n n n n n 0 n n n n n n n a 











SHOW CALLS [n-calls] 

Displays the current program location and all, or a specified number of, preceding calls. 


SHOW DISPLAY 

Displays a list of all specified screen displays, with the size, window, kind, and debug-command list of each. 


SHOW KEY 


/BRIEF 

/DIRECTORY 

/[NO]STATE(=state-name[,...]) 


Displays current definition(s) of one or all keys. 


{ 


/ALL 1 
key-name J 
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Summary of Debugging Commands (Cont.) 


SHOW LANGUAGE 

Displays the current debugging language. 


SHOW LOG 

Displays the current status of the log file, if one exists. 


SHOW MARGIN 

Displays the current left and right margin settings for the display of source code. 


SHOW MAX_SOURCE_FILES 

Displays the maximum number of source files that can be kept open at any one time. 









SHOW MODE 

Displays the current mode for displaying variables and addresses. 


SHOW MODULE [module-name] 

Lists the modules in the image being debugged and shows which modules have names in the debugger symbol table. 


SHOW OUTPUT 

Displays the current status of the debugger’s output files. 


SHOW SCOPE 

Displays the current scope search list. 


VAX PASCAL Language Summary 55 








Summary of Debugging Commands (Cont.) 


SHOW SEARCH 

Displays the current search parameters 


SHOW SELECT 

Tells you the current display selections for screen mode. (Irrelevant in line mode.) 


SHOW SOURCE 

Displays the current directory search list for source files. 


SHOW STEP 

Displays the current default step conditions. 








SHOW SYMBOL 


/ADDRESS 

/DEFINED 

/DIRECT 

/GLOBAL 

/LOCAL 

/TYPE 


[...]symbol-name[,...] [IN scope[,...]] 


Displays information from the debugger’s run-time symbol table. 


SHOW TERMINAL 

Displays the current terminal width used for formatting debugger output. 


SHOW TRACE 

Displays current trace points. 
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Summary of Debugging Commands (Cont.) 


SHOW TYPE [/OVERRIDE] 

Displays the current default data type or override type. 


SHOW WATCH 

Displays the current watchpoints and the number of bytes being watched. 


SHOW WINDOW 

Displays all screen window definitions, giving the name and screen position of each. 


SPAWN H/NOWAITU [dcl-command] 

Spawns a subprocess, either to continue in parallel with the parent process (same effect as SPAWN/NOWAIT in DCL), or to 
suspend the parent process and attach the terminal to the subprocess. 










STEP 


'/BRANCH 

/CALL 

/EXCEPTION 

/IN STRUCTION [=opcode] 

/INTO 

/LINE 

/[NOISILENT 

/[NOlSOURCE 

/[NOlSYSTEM 

/OVER 

/RETURN 


[,..][n-units] 


Executes one or more lines or instructions, stepping into or over subroutines at your request. 


SYMBOLIZE addr-expr[,...] 

Converts a virtual address to a symbolic representation. 
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Summary of Debugging Commands (Cont.) 


TYPE [[module\]line[:line]][,...] 

Displays the next line or the specified line(s) of source code in the current module or in the specified module. 


UNDEFINE I/LOCAL] f /ALL 1 

^symbol!,...] J 

Undefines symbol(s) previously defined with the debugging command DEFINE. 


UNDEFINE/KEY 


/[NO]LOG 

/NOSTATE 

/STATE[=state-name[,...]] 


f /all 1 

1 key-name J 


Removes a keypad definition. Same effect as DELETE/KEY. 


nnnnnnnnnnnnnnnnnnnir 












WHILE Boolean-expr DO(command[,...]) 

Provides a loop for iterating debugging commands as long as the WHILE clause is true. 
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